home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 26 / AMIGAplus Sonderheft 26 (2000)(Falke)(DE)(Track 1 of 2)[!].iso / Tools / GFX-Viewer / SViewII / ARexx-Scripts / SetSVDriver.rx < prev    next >
Text File  |  1999-03-29  |  956b  |  54 lines
  1. /*
  2.    $VER: SetDriver.rx V8.00 (22.7.98)
  3.    © 1993-98 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates how to modify the global SVDriver preferences
  6.    by using SViewII's ARexxPort.
  7.  
  8.    The resulting changes will also appear on SViewII's GUI,
  9.    if already open.
  10.  
  11. */
  12.  
  13. address command
  14.  
  15. SViewII "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  16.  
  17. say ""
  18. say "ARexx: SViewII has been started : Waiting a moment..."
  19.  
  20. wait 5
  21.  
  22. OPTIONS RESULTS
  23. SIGNAL ON ERROR
  24. SVIIPORT = 'SViewII.rx'
  25. SVNGPORT = 'SViewNG.rx'
  26. SVPORT   = 'SuperView.rx'
  27.  
  28. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  29. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  30. IF ~SHOW('P',SVPORT) THEN DO
  31.   say "Could not locate ARexx port of SViewII !"
  32.   CALL ErrorOut 0
  33. END
  34.  
  35. ADDRESS VALUE SVPORT
  36.  
  37. 'SVDRIVER=ECS ScreenDriver'
  38.  
  39. address command wait 5
  40.  
  41. 'SVDRIVER=AGA ScreenDriver'
  42.  
  43. CALL ErrorOut 0
  44.  
  45.  
  46. /* Errorout procedure ----------------------- */
  47.  
  48. ErrorOut:
  49.         PARSE ARG ExitCode
  50.  
  51.         EXIT ExitCode
  52.  
  53.   END
  54.